1 FORA=2049TOPEEK(45)+PEEK(46)*256-3:POKEA+2,Z:POKEA+3,0:A=PEEK(A)+PEEK(A+1)*256-1:Z=Z+1:NEXT
10 :
20 REM RENUMBER (GEORG WICHERT)